open();
run("Duplicate...", "title=[original 1.JPG]");
run("Duplicate...", "title=[original 2.JPG]");
run("Split Channels");
selectWindow("original 2.JPG (red)");
run("Duplicate...", "title=[original 2.JPG (red)-1]");
setAutoThreshold("Default dark stack");
//run("Threshold...");
setThreshold(getNumber("introducir un número:",60), 120);
run("Convert to Mask");
run("Convert to Mask");
run("BinaryKillBorders ", "white top right bottom left");
size=getNumber("introducir un valor depende de aumento objetivo:", 200)
run("Analyze Particles...", "size=size-Infinity circularity=0.00-1.00 show=Outlines display include summarize add");
roiManager("Show All with labels");
roiManager("Show All");
selectWindow("Drawing of original 2.JPG (red)-1");
run("Convert to Mask");
imageCalculator("Add create", "Drawing of original 2.JPG (red)-1","original 1.JPG");
selectWindow("Result of Drawing of original 2.JPG (red)-1");
selectWindow("original 2.JPG (red)");
setAutoThreshold("Default dark");
setThreshold(getNumber("introducir un número:",15), 125);
run("Convert to Mask");
run("BinaryKillBorders ", "  top right bottom left");
roiManager("Show All with labels");
roiManager("Show All");
run("Convert to Mask");
size=getNumber("introducir un valor depende de aumento objetivo:", 500)
run("Analyze Particles...", "size=size-Infinity circularity=0.00-1.00 show=Outlines display include summarize add");run("Convert to Mask");
imageCalculator("Add create", "original 1.JPG","Drawing of original 2.JPG (red)");
selectWindow("Result of original 1.JPG");
selectWindow("Result of Drawing of original 2.JPG (red)-1");
selectWindow("Drawing of original 2.JPG (red)-1");
close();
selectWindow("original 2.JPG (red)-1");
close();
selectWindow("original 1.JPG");
close();
selectWindow("Drawing of original 2.JPG (red)");
close();
selectWindow("original 2.JPG (red)");
close();
selectWindow("original 2.JPG (blue)");
close();
selectWindow("original 2.JPG (green)");
close();